RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFFRRRFFFRFR FRFRRRRRRRRRPRFFF 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFRFRRRFRRRFR FRRRRRRPRRPPR PPE 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFRRRFRRRRFRFR FPRRRRRRRRRR FFF 
RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 
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BEGIN 
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ie COPYRIGHT («) 1978, 1980, 1982, 1984 BY 

ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 

is ALL RIGHTS RESERVED. 

it THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ie ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICEN SE AND WITH THE 
ie INELUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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ie THE INFORMATION IN THIS + Ha S SUBJECT TO CHANGE WITHOUT NOTICE 
- Se ookat itn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


is DIGITAL ASSUMES NO RESPONS pei ITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH [S NOT SUPPLIED BY DIGITAL. 
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FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 
8 i ABSTRACT: Processes rts ees F »NUMBER SUBPAGE, 
03 ' ER IND »NUMBER CHAPTER, 

03 i NUMBER APPENOIX, “NUMBER LIST, and 
o “NUMBER LEVEL commands. 

03 ! Also, for DSRPLUS: 

04 ! eNUMBER EXAMPLE, .NUMBER FIGURE, and 
004 »NUMBER TABLE. 

4 ; ENVIRONMENT: Transportable 
$04 AUTHOR: R.W. Friday CREATION DATE: June, 1978 


: 


; 
g 


DONAULSWIN OOD 


Se eS SSS 


Wr 


be al ad as 


K 4 
Processes the various .NUMBER directives. 16-Sep-1984 01:16: VAX-11 Bliss-32 V4.0-742 P 
Revision History . 13-808- 1382 94:49:38 DISKSVMSMASTER: CRUNOFF.SRCINM.BLI;1 see (25 


SBTTL ‘Revision History' 
MODIFIED BY: 


% 

1 

1 

: 014 REMO0014 Ray Berek} 7-April-1983 

: Almost complete redesign of the ogic that processes the 

: «NUMBER APPENDIX and .NUMBER CHAPTER directives. This was 
! done to decouple these directives from the .APPENDIX and 
! -CHAPTER directives. The result herein was a significant 
reduction in code. 

! 

i 

1 

i 

! 


013 KAD00013 Keith Dawson 07-Mar-1983 
ceoeeteli a of all modules. Updated module names, idents, 


copyright dates. Changed require files to BLISS library. 


a a ss se 8 


MO CONOUL INO 


NM Processes the various .NUMBER directives. 
v04-000 Module Level Declarations 

3 $? ; } RSBTTL "Module Level Declarations’ 
H ef 5 } TABLE OF CONTENTS: 

3 4 ¢ 1 ! INCLUDE FILES: 

3 0 re: 7% 

3 71 : 1 

3 a y 1 LIBRARY ‘NXPORT:XPORT'; 

3 t ' REQUIRE ‘REQ:RNODEF'; 

3 75 U § 1 SIF DSRPLUS ZTHEN 

; 78 U 4 1 Sead REQ:DPLLIB'; 

es 5 1 ZELSE 

; we $ 1 aed *REQ:DSRLIB'; 

3 79 07 1 2FI 

: 80 38 1 

3 81 0209 1! 

: : 8 19 : ! EXTERNAL REFERENCES: 

: 84 0 \§ 1 EXTERNAL 

3 85 021 1 

; 86 0214 1 : SECC_BLOCKVECTOR, 
3 87 0215 1 FSO1 : FIXEB_STRING, 

3 88 U 0216 1 ZIF DSRPLUS XTHEN 

3 89 U 0217 1 FLGT : FLGT_DEFINITION, 
; 90 8 18 1 FI 

3 91 19 1 GCA : GCA_DEFINITION, 
3 9 0220 1 HCT : HCT_DEFINITION, 
: 9 0221 1 HLLIST : COUNTED_LIST, 

8 94 0 § 1 : FIXED_STRING, 

; 95 u 0 1 ZIF DSRPLUS ZTHEN 

s % U 0224 1 khar, 

; 97 0225 1 XFI 

3 98 0226 1 LSTCNT : REF COUNTED_LIST, 
; 299 0227 1 NMLST : N L 

> 100 228 1 NPAGEN : PAGE DEFINITION, 
: 101 9 1 NUMPRM : NUMPRM_DEF INE 

: 198 0 1 PAGEN : PAGE_DEFINITION, 
3; 1 #1 PHAN : PHAN_DEF INITION; 
: 104 8 33 1 

: 105 3 1 EXTERNAL LITERAL 

: 196 BS 4 1 RNFILC, 

3 4 0235 i RNF INM; 

3 198 1 EXTERNAL ROUTINE 

; 110 U & 1 ZIF DSRPLUS ZTHEN 

> 27 U 9 1 GETSUB, 

3 116 40 1 SFI 

3; 11 41 1 GETLET, 

3. 6116 ri} 1 CONVLB, 

3; 6115 4 1 ERMA, 

3 118 44 1 GLNA, 

: 11 45 1 GSLU 

: 118 46 1 RSKIPS; 

> 3% 4 1 


1Sseo-t9Hs 01:46:58 yateyt at 


' XPORT Library 
! RUNOFF variant definitions 


! DSRPLUS BLISS Library 
! DSR BLISS Library 


! Error messages 
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ZSBITL "NM == main routine’ 
GLOBAL ROUTINE nm (HANDLER_CODE) : NOVALUE = 


'44 
: FUNCTIONAL DESCRIPTION: 


See the ABSTRACT, above. 
FORMAL PARAMETERS: 

HANDLER_CODE = Indicates which command is to processed. 
IMPLICIT INPUTS: 

NUMPRM = Contains a number, as processed by GETNUM. 


IMPLICIT OUTPUTS: None 

ROUTINE VALUE: 

COMPLETION CODES: None 

SIDE EFFECTS: None 
BEGIN 


Bliss-32 V4.0-742 
SMASTER: CRUNOFF .SRCINM.BLI;1 


' Except for .NUMBER LIST, .NUMBER LEVEL, and .NUMBER RUNNING, all these 


! directives turn on page numbering on the next page, at the latest. 
IF (.HANDLER_CODE NEQ H_NUMBER_LIST) AND 
(.HANDLER_CODE NEQ H_NUMBER_LEVEL) AND 
tte te NEQ H_NUMBER_RUNNIN) 
BEGIN 
HCT_NMPG_NP = TRUE; 


! At the top of the first page, or in the middle of a page 
! turn on page numbering immediately. 


IF _.PHAN_TOP_FIRST OR NOT .PHAN_TOP_PAGE 


HEN 
HCT_NUMBER_PAGE = TRUE; 
END; 


! Process the specified command. 
SELECTONE .HANDLER_CODE OF 
SET 
CH_NUMBER_APPEND, H_NUMBER_CHAPTE] : 
BEGIN 
LOCAL 
section_number; 


! Ignore command if an illegal number was given. 
ten. -num_result 
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RETURN; 
section_number = 0; 


NM 
v04-000 


wn 


! Try to get a string of letters if the user didn't supply a number. 
F fun, Length EQL 0° ci 


BEGIN | 
H 


ZIF DSRPLUS XTHEN 
IF (.khar_ EQL .flgt Csub. flag tiee.cherester J) AND 
-figt Csub_flag, flag_ena led 


getsub (ira, num_value, num_length, true) 
ELSE 


getlet(ira, num_value, num_length); 


cccecce 


COOOOCCOCOCOCOOSOCSOOSCOSCSOOOOOOOOOOOOoOoOoOO: 


tFI 
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END; 
section_number = .num_value; 


IF ¢,.section_number EQL 0) AND 
(.num_length EQL 0) 


IAP OPOTOROTUROR RIPON 2 2 I QOOOO 
SOOO NA NEW OC OONO UE WN" OOOO 


COOCSCOCOOOOOOO CoCcocoCOCDCDCO~V 


THEN ; 
1 ! User said .NUMBER APPENDIX or .NUMBER CHAPTER and he didn't 
¢ ! specify a number. So he's effectivally said nothing new, : 
! so return. 
$e 3 RETURN; : st 
: Ru 
0 3 : eg thy between an absolute setting and an adjustment. 3; 4 
0 3 IF .NUM_SIGN 7 Li 
0. THEN ; Le 
0 N ! User gave an adjustment. 3 Me 
IF .handler_code EQL h_number_append THEN : Co 
3 section_number = ecc Cappend_offset, ecc$h_counter] + .section_number 
4 


section_number = ecc Cchap_offset, ecc$h_counter] + .section_number; 
JF: BOCs ton punber LSS 0 THEN Section_number = 0 


333 


ye at et tt ek te at 
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ae 


Ww 


igi nentlor 0c EQL h_number_append 
ecc Cappend_offset, ecc$h_counter] = .section_number - 1 
ecc Cchap_offset, ecc$h_counter] = .section_number - 1; 
END; 
CH SNOER INDEXY : 
! NOTE: It is sufficient to set SCT_TYP as shown to get the 
ortt Covctsorte tr Pactee is net te screv us lowers 
if g PHAN TOP_FIRST 
! At top of first page this takes effect immediately. 
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BEGIN 
PAGEN FSCT_NUMBER] = 0; 
PAGEN CSCT=T = SCT_INDEX; 
END; 
NPAGEN SCT _NUMBER3 = 0; 
CT"TyYP = SCT_INDEX; 


NPAGEN CS 
END; 


CH_NUMBER_LEVEL] : 
BEGIN 


' Get no more numbers than were are header Levels. 
GLNM (.HLLIST CCL MAX_INDEXJ); 


INCR I FROM 1 TO .NMLST_COUNT DO 
HLLIST CCL_INDEX] = .1; 
CASE .NMLST_DESCR (.1) FROM 0 TO 4 OF 


CNM_BAD) : 
0; 
CNM_UNSIGNED] : 
HLL 


IST C.1] = .NMLST_VALUE (.1); 
CNM_NULL 


CNM_PLUS, NM_MINUS] : 
IF ore C.1] + .NMLST_VALUE (.1) GEQ 0 
HLLIST C.1J = .HLLIST C.1] + .NMLST_VALUE (.1) 
~ ERMA (RNFINM, FALSE); 
TES; 
END; 


oi C.HLLIST CCL_INDEXJ] = .HLLIST C.HLLIST CCL_INDEXI] - 1; 


CH_NUMBER_LIST] : 
BEGIN 


GI 

LOCAL 
LIST_DEPTH; 

! Set up defaults. It's ok to have no numbers, 
' so that will never get checked for. 
NMLST_DESCR (1) = NM_RULL; 
NMLST-DESCR (2) = NAZNULL; 
GLNM T2); ! Now get parameters 


' Sort out the following command formats: 
! .NMLS 


«SRCINM.BLI;1 (4) 
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eNMLS 1,2 
-NMLS foobar 


' 

i 

i SNMLS 

-NMLS , foobar 
i 

i 


ALL the various formats will be put into the ‘‘two parameter'’ format. 


This code checks to see if the GLNM scan stopped at character string foobar. 
The reason for this is that the number List scanning stops when it doesn't find a number. 


We want to allow the user to specify a letter string as a counter in this command. 


IF (.NMLST_COUNT EQL 0) OR ! Found absolutely nothing resembling a number. MIGHT be .NMLS fooba 
NMLS OR ! Might be .NMLS | foobar i.e., missing comma. 


04 


falololo) s] 
WOO 
OOOSCOCCO 
PRRRRRS 
BHF PWN inonorenopopsropenon) 


> 305 ; 
3 $09 04 4 ((.NMLST_COUNT EQL 2) AND ! There were two arguments given, but ; 
3 $05 Be 4 (.NMLST_BESCR (2) EQL NM_NULL)) ! couldn't locate the secon number. Might be .NMLS 1, fooba : 
: 309 04 ; ' Check to see if the reason nothing was found is that : 
3 #19 ge i bel nt '"0 of letters was given as a counter, instead of just a number. ; 
3 3\§ + : FS_INIT (FSO1); ! Initialize temporary fixed string. : 
$ tie gf ? ! Now, try to get a string of letters ; 
s 316 04 4 IF GSLU (IRA, FSO1) EQL GSLU_NORMAL : 
: Se 0444 4 THEN : 
; 318 0445 4 ! Guessed right! The user gave a string of letters as a counter. : 
; 338 Beee : seete convert to their numerical equivalent. : 
Spy 0448 § NMLST_VALUE (2) = CONVLB (.FS_START (FSO1), .FS_LENGTH (FSO1)); | ; 
; $56 0449 5 ! Fake out the eg code by telling it two arguments were given. 3 
; 32 0450 5 NMLST_DESCR (2) = NM_UNSIGNED; : 
: $$ 0451 5 NMLST_COUNT = 2; F 
3 Ses bees 4 END; 3 
; 326 0453 4 : 
s Ser 0454 3 END; 3 
; fee 0455 3 5 
3 $$7 0456 ; ! At this point we've sorted out the following .NMLS dialects : 
; 330 0457 ! .NMLS (no arguments) 3 
3; 331 0458 ! .NMLS ,(no arguments) : 
; 332 0459 i <NMLS foobar : 
s 3 0460 ! .NMLS ,foobar ; 
> 334 0461 i <NMLS 1, foobar ; 
; 32 166 ! .NMLS 1 foobar : 
3 6 46 ! .NMLS 1, 

s Sor 464 ! For all those cases, the value the next .LE command is to generate, if given, 

: 38 0465 i is im NMLST_VALUE (2), and the List depth is in NMLST_VALUE (1). 

; v4 bc? ! Check for just a single number, nothing following. 

: ri} 469 IF_.NMLST_COUNT EQL 1 

: 4 470 THEN 

: rt} {4 ? ! Move the counter to the second position. 

; 34 4735 4 NMLST_VALUE (2) = .NMLST_VALUE (1); 

: 34 474 & NMLST_DESCR (2) = .NMLST _DESCR (1); : : 

3 475 4 NMLST_DESCR (1) = NM C3 ! Cause the following code to ignore first argument. 
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END; 


At this point all the valid variations of .NMLS have been sorted out 
and the arguments have been put in NMLST_VALUE (1) and NMLST_VALUE (2). 
From this point on, RUNOFF thinks the user said .NMLS n,m. 


Process first parameter, that indicates which 
' List element counter is being set. 
singel” | dmaeitaiaie (1) FROM 0 TO 4 OF 


CNM_BAD] : 
RETURN; 

CNM_PLUS, NM_MINUS) : 
NMLST_VACUE (1) = .NMLST_VALUE (1) + .LSTCNT CCL_INDEX); 


CNM_NULL] : 
NMLST_VALUE (1) = .LSTCNT CCL_INDEX); 


SS ONED : 


TES; 
IF .NMLST_VALUE (1) LEQ 0 OR 
eNMLST_VALUE (1) GTR .LSTCNT CCL_MAX_INDEX] 
BEGIN 
ERMA (RNFINM, FALSE); 
RETURN; 
LIST_DEPTH = .NMLST_VALUE (1); 
!' Process second parameter, that sets up the 


' List element counter value. 
CARE AS! PEO (2) FROM 0 TO 4 OF 


CNM_BAD) : 
RETURN; 


CNM_NULL] : 
NMLST_VALUE (2) = .LSTCNT C.LIST_DEPTH) + 1; ! Add 1 to offset the -1 later. 


CNM_PLUS, NM MINUS) 
NMLST_VACUE (2) 


CHAINS ENED : 


= .NMLST_VALUE (2) + .LSTCNT C.LIST_DEPTH); 


TES; 
IF .NMLST_VALUE (2) LSS 0 
THEN 

BEGIN 
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von 

; a06 3 4 ERMA (RNFINM, FALSE); . 
; 40 4 4 RETURN; : 
8 3 : 
; 410 3 ! When assigning the value, subtract one : 
> 411 538 | to anticipate the .LIst ELEMENT : 
; aig 539 i command that will_increment it. : 
3 6} “79 LSTCNT C.LIST_DEPTH] = .NMLST_VALUE (2) = 1; ‘ 
> 414 4} END; : 
; 6415 O208 ‘ 
: 416 054 CH_NUMBER_SUBPAG, HNUMBER_PAGE, H_NUMBER_RUNNIN] : : 
: 417 Base BEGIN ; 
; 418 45 ‘ 
; 419 Bees LOCAL ‘ 
: 2 Bete X; ! Copy of page/subpage/running-page to be updated ‘ 
; : § tr ! Copy the counter which is to be updated. : 
; 426 0551 IF .PHAN_TOP_FIRST : 
: 425 b228 THEN : 
> 426 055 ; 
: 427 0554 ! Start with this page ‘ 
; 428 0555 IF .HANDLER_CODE EQL H_NUMBER_SUBPAG ; 
; rx 0556 THEN : 
; 4350 0557 ! copy subpage counter from current page ; 
3 6431 0558 X = .PAGEN CSCT_SUB_PAGE) ‘ 
; $36 0559 ELSE ; 
; 43 0560 ‘ 
: 434 0561 IF_.HANDLER_CODE EQL H_NUMBER_RUNNIN : 
; 435 8266 THEN : 
; $38 056 } Copy runnin page number for current page ; 
H rH beee X = .PAGEN CSCT_RUN_PAGE) ° 
: 439 056 ' Copy page counter from current page : 
S440 O86? x = PBaBEN CScT. PAGE] Pu 
3: 441 0568 ELSE : 
3; 44 0569 : 
: 44 0570 ! Start it on next page ; 
3 444 0571 IF .HANDLER_CODE EQL A_NUMBER_SUBPAG : 
3; 445 b276 THEN : 
; 446 057 ! Get subpage counter from next page 
: 447 0574 X = .NPAGEN CSCT_SUB_PAGE) 
: 448 575 ELSE 
: 449 278 
3: 450 57 IF .HANDLER_CODE EQL H_NUMBER_RUNNIN 
: 433 378 mm Get i a ounter fro t page 
; ! Get runnin e coun m nex 
3 438 HH X = .NPAGEN Pst ToRUN PAGED ' 
: 455 5 ! Get page counter from next page 
: 456 5 : X > .NPAGEN CSCT_ PAGE]: bin 
; 458 585 IF _ .NUM_RESULT 
; 459 5 § THEN 
3; 460 5 4 BEGIN 
: 461 5 3 4 
3; 462 5 4 IF .NUM_SIGN NEQ 0 

| 


X = CONVLB (.FS_ STA ART 
ND 
END; 


497 ! Validate the tentative page/subpage number 


rs 
o 
Le) 
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ee? ° — X + ,NUM_VALUE 

=. e o 

ret § ELSE = : 
rhs: 94 IF _ .NUM_LENGTH NEQ 0 Py 
468 95 THEN ae 

469 9 X = .NUM_VALUE : 
470 9 ELS - 
rte 44 ! No number was given. Try for letters. . 4) 
rtf $00 FS_INIT (FS01); ! Initialize the temporary fixed string. =| 
475 6 : ' Now t ry to get a string of letters ; | 
rt 4 ret if “SL IRA, FSO1) EQL GSLU_NONE ‘ 
478 605 a It's okay to say -NUMBER PAGE and not give a page number. * 
479 0606 ' The net result $ that all that happens is that page number ing 24) 
480 0607 ! is turned on again. (This happens as the result of the Line Bf code .* 
481 ! just before the SELECT statement, above). However, for . 

48 ! subpages, a number must be given, since 0 is the same as no : 
48 1 : defautt a ph a In this case the program supplies a - 
484 1 ! default value of 1 ae 
is } a qu 
487 1 IF .HANDLER_CODE EQL H_NUMBER_SUBPAG . 
488 1 THEN . 
489 1 X21 ey 
490 1 END eS 
491 1 ELS es) 
49 1 ' Convert letters to the binary internal form. ma 
49 (FSO1), .FS_LENGTH (FSO1)) sj 
494 - 4 
495 .. 4 
496 a 


' Page manere don't change wre ea Pe or Hg 1 check 
' to see if the user_has sai 4 fhe interim. 
iF NPREEN CScT _PAGE) - BAGEN’ Peet PAGE] EQL 


NPAGEN CSCT_PAGE] = .PAGEN CSCT_PAGE); 


BRB BBB BB MM MMB BEF MADD. DDD DDSI ES Be ES 


ry IF ((, “1 " cope A a H_NUMBER_SUBPAG) AND ! ZERO is illegal only for .NUMBER SUBPAGE 
4 Ss 3}? 9 ' LSS 0 is always illegal 
208 "BEGIN 
504 1 ERMA (RNFINM, TRUE); 
05 ¢ RETURN 
86 END; 
508 5 ! at this potnt | x congetns ® valid counte 
09 § i Now eed t t it where it will be alched up. 
if OHANDLER. Cope aL H * WORSER. SUBPAG 
5 BEGIN 
é 640 
: 
4 
: 5 
6 


ot a 


OOO UE w Oo 


Se Se Se Se Se Oe Ge Be Se Se Se Se Se Se Se Se Se Se Ge Se Fe Ge Se ae Fe Ge Se Fe Ge Se Se Se Se Se Se Se Oe Se Se Se Ge Se FHS Se Se Ge SHS Se Se SH Se Se Se Sees rt 


POAAAOOS ees babies eS SSeS 
FINNS SS OS TEER SSE SOR NOR SSE SE OPES CONC OONTS B 


PPV LPUDPVDPV DPV PV DV DVLVDVPVLVLULVDVPU PUPILS SVS SIV SISSIES SIU ISUSISUSIUITSISIT STS SVS ISIS ISIS ISIS ISIS 
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5 
Processes the various .NUMBER directives. 18-se -1 716: VAX-11 Bliss-32 V4.0-74 P 1 
NM == main routine 1 ~3007 1383 94:99:38 DLEKSVMGMASTERSCRUNOFF SRCINM.BLI:1 rt ) 


& ' Save suppede counter 
a pea P_FIRST 


bee ypree number takes effect immediately 
CT_SUB_PAGE) = .X 


IN 
PAGEN FS _SUB_ 3 
eae SCT_SUB_PAGEJ = .X + 1; 


: subpage takes gitest on next page 
NPAGEN LSCT_SUB_PAGE] = .X; 


ELSE 
IF .HANDLER_CODE EQL H_NUMBER_RUNNIN 
THEN 


! User said .NUMBER RUNNING 
ae eel ah edietaide 


; in running page number takes effect immediately 
PAGEN PSCT RUN PAGE = XM; 
— SCT_RUN_PAGE] = .X + 1; 


! The running page number takes effect on the next page 
ESCT_ RUN. PAGE tg 


SESES 


NPAGEN 3 = .éx 


ELSE 
r said .NUMBER PAGE, not .NUMBER SUBPAGE or .NUMBER RUNNING 


DD_EVEN = NOT (.X MOD 2); ! Set odd/even page number flag appropriately. 
PHAN_TOP_FIRST 

beet e number takes effect immediately 

PAGEN [CSCT_PAGE) = .X; 

aa SCT_PAGEJ] = .X + 1; 


ELSE 
! Page number takes effect on the next page 
NPAGEN CSCT_PAGE] = .X; 


e 
N 
0 


CoCo Oo INN NNN 


8 
5 
5 


zeeee 


tIF DSRPLUS XTHEN 
H_NUMBER_EXAMPL , H_NUMBER_FIGURE, H_NUMBER_TABLE) : 


LOCAL 
ENTITY_NUMBER, 
OF FSET; 


! Ignore command if an illegal number was given. 


PIP DP IPIPIPIPIPIPININDE EE BB EM B&B BE FE EWN BH NAAN NAHAS BH PTT BE BE 


sane en enerRPCaEperREENTas ’ 


3S 


OFFSET = “4 el - HANDLER_CODE OF 
H_NUMBER_EXAMPL Birt OFFSET; 
H-NUMBER_F IGUR : FIGUR™ OFFSET; 
ee “TABLE] : TABLE_OFFSET; 


5 
NM processe the ver ious «NUMBER directives. “Se VAX-11 Bliss-32 V4.0-742 Pa 12. 
v04-000 -- main routine 12-8 198 9}: 9; 38 ve KSVMSMASTER: CRUNOFF. SRCINM.BLI;1 - (4) | 
rz 704 IF NOT .NUM_RESULT | 
t f $ RETURN; 
381 7 8 ! Assume user gives neither a number or a letter. 
; ; 70 ENTITY_NUMBER © 0; 
2 i ie’ at oe ptr ing of letters if the user didn't supply a number. | 
Hy 71 THE 
bs at BEGIN 
71 LOCAL 
39 at GSLU_RESULT; 
4 a ! Initializ pe fixed string where the result is returned. 
534 i 9 FS_INIT (FSO1) 
95 7 ! to get a name s ified as a string of letters. 
2 7 § éstu” “RES LT = ESLU (IRA, PS61); ’ 
598 5 ! Convert to binary representation. 
599 $ IF .GSLU_RESULT NEQ GSLU_NONE 
3 ENTITY NUMBER = CONVLA (.FS_START (FSO1), .FS_LENGTH (FS01)); 
, END 
¢ ENTITY_NUMBER = .NUM_VALUE; 
7 ! Decide where to store the number. 
8 
9 
0 
4 


Be Se Se Fe Se Se Se Se Ge Se Se Se Ge Se Se Se Se Ge FH Se Ge Ge Ge Fe Se Ge Fe Se Ge Ge Se oe SF Se Ge Se Se Ge SESH Se FHS HH SESS Se Se ee SH Se ee Sees Seese 
AAPAAAAAOSAH POA wn 
2 SBSeSsss 


cecccccccccccecceccccecceccecceccecceccecccceccecceccecccececceccececececececcececceccecceccececececccececceccecee 


10 
1] 
ie: 
15 4 ! The ‘‘=-1"" in the statements below exists because HEADER.BLI 
1 2 : increments before putting out the next entity caption. 
18 745 if -NUM_SIGN EQL 0 
19 74 THEN 
3 rt Unsigned number: just store it. 
6 ¢ 74 écc C.OFFSET, ECCSH_COUNTER] = .ENTITY_NUMBER - 1 
6 750 ELSE 
° 3 4 1 #n or -n: add it. 
6 § 7 5 écc C.OFFSET, ECCSH_COUNTER) = 
6 f , 4 ECC C.OFFSET, ECCSH_ COUNTER) + .ENTITY_NUMBER = 1; 
629 7 
° f $ IF .ECC C.OFFSET, ECCSH_COUNTER]) LSS 0 ! Defensive check. 
6 § 7 § ECC C.OFFSET, ECCSH_COUNTER) = 0; 
6 760 


the vor ious «NUMBER directives. 


routine 
END; 
TES; 

END; 

5B 

A 

f 
QO00000A2 = BF 
000000A1 8F 
Q00000A4 BF 
000000006 
000000006 
00000098 
0000009C = BF 
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09:38 DISK 


oO 
nn 


—0o—-9o T0090 -—-C TOM —9 FC OoOMmMo-9 9 -~VT TO VOOoououoN00on" 
PAM 


COOCCCOCOOOCOSOOOOOOOOOOoOOoOOO 
mo 


OOF A FF OWT WIR on no 
OOCCOCCCCOOCOOoOooQooooooooo 


POVEFMOMM OO -"VIVVNVIWLES MMmMmmmmm 
>>> SNAAQOMNMNE & EWI | | OO 


SOOOOSOCSSOOSOSOOCOOOOOOOOOOOOOOOSOOOCOOSoOoOoOO 


MVRIOD BV MONMVUNLS SOLO" ODDO" OM MmMmMmmmmme 


Sssososoooss 


—COmnco. —™ CoOCOnI COND 


SOOOoOFOMPr UNO 


1 Bli seat V4.0-742 P 
VMSMASTER: CRUNOFF.SRCINM.BLI;1 
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NM prgscgsses the various .NUMBER directives. 


\V04-000\ 
ECC, FS01, GCA, HCT 
HLLEST, IRA, LSTCNT 
NMLST, NPAGEN NUP 
PAGEN, PHAN, Nene 
PAGEN, GETLET, tbavee 
ERMA 6LNM, GSLU 
RSKIPS 
SCODES ,NOWRT,2 
Ni Save, Re. .R3,R4,R5,R6,R7,RB,RI,RI0,R11 
Wei isrse™ R10 
NUMPRM+12, 
NPAGEN#8, “ae 
Fs01 RG. 
NMLS 
HANDLER Zone. R3 
R3, #162 
R3, #161 
23 
R3, #164 


#1, @HCT+44 
PHAN+24, 1$ 


AN, 2 
#1, HC T +12 
#155 
#156 
NUMPRM, 3$ 
SECTION_NUMBER 
NUMPRM+T2 
R 
NUMPRM+4 


NUAPRASSS SECTION_NUMBER 


AMPRRS 12 
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NM Processes the various .NUMBER directives. tbese -1984 01:16: VAX-11 Bliss-32 V4.0-742 Pa 14 
v04-000 NM == main routine 1 ~30 71382 94:49:38 DISKSVMSMASTER:CRUNOFFSRCINM.BLI:1  o (4) 
1F FC AB OFS DOOR SS BoC | NUMPRMS8, 8S : 
00000098 ~=s«aBFF : p 5 CHPL R3, pa : O33 
52 00000000GEF4 9 B> HOVAB C+411CSECTION_NUMBER], SECTION_NUMBER + 0338 
52 00000000GEF H BF 68: MOVAB E¢C+375CSECTION NUMBER], SECTION_NUMBER : 0340 
1 C7? 7$: BGEQ a + 0341 
BY S33 as, Gust gpeTZON wee tour 
00000098 =F D| Bep CPL R3, #155 + 0345 
000000006 EF 98 06 006 MOVL R2, ECC+411 t 034 
000000006 EF 52 B0 a0 9$: MOVL R2, ECC+375 : 0349 
000000A0 ss BF 53 D1 OES 108: ChPL R3, #160 : $333 
09 000000006 EF ig Soe BLBC -PHAN+24, 11$ : 0359 
FC OAD OG OFS CLRL — PAGEN+ + 0363 
FB OAD 04 00 08 FO OOOF INSV #2, #0, #4, PAGEN > 0364 
FC A? D4 OOOFF 11$:  CLRL NPAGENS4 + 0367 
FB OAT 04 00 02 FO 0108 INSV #2, #0, #4, NPAGEN + 0368 
04 001 RET : 0295 
000000A1_—s8F 53 D1 00109 128:  CMPL 3, #161 + 0371 
5B 12 0011 BNEQ =-:«19$ ; 
FC AA ODD B51) PUSHL HLLIST 3 0374 
000000006 EF 01 FB 0011 CALLS #1, GLNM : 
4 5 pO 0011C OVL NMLST, R4 + 0376 
2 D4 O11 CLRL I ; 
F 11 00121 BRB 8$ : 
6A 52 DO 00123 138: OVL I, HLLIST+4 : 0378 
04 00 OOAO C542 CF 01 6 CASEL NMLST+160CIJ, #0, #4 : 0380 
0013 0013 000¢ 605 01 p 14$: <WORD 185-148, ; 

00 001 15$-14$.- : 
16$-14$.- : 
16$-14$,- : 
188-148 : 

29 11 00137 BRB 18$ : 
6A42 6542 00 or 9 15$: MOVL NMLSTCIJ, HLLIST+4C1) : 0387 
22 11 001 F BRB 18$ : 
51 6542 D0 00140 16$: MOVL NML STC 3, R1 > 0394 
0 6142 DE 00144 MOVAL (RI)CIJ, RO ; 
50 A ; 148 ADDL R19. R F 
6 148 BLSS 1 3 
6A42 1 CO 00140 ADDL2 1, HLLIST+4C1) + 0396 
F 11 001 RB 18$ : 
TE 04 00153 17$:  CLRL  ~-(SP) : 0398 
000000006 8F DD 001 PUSHL  #RNFINM ; 
000000006 EF é FB 001 CALLS #2. ERMA F 
BD F3 00162 18$:  AOBLEQ R4. I, 138 > 0376 
6a dd 001 MOVL HLLIST+4 RO + 0404 
6A40 p 1 DECL  4HLLIST+4CRO ; 
4 0016C RET ; 9293 
000000A2 =F 53 160 19$:  CMPL RS #162 : 040 
174 BEQL : § : 
O0DF 176 BRW 4$ : 


23 


PU: Ai cictaictsieeerepemeistbioatcionpaiantntacn Rinienssnoetabionisnsssnananchsh sili hamianintanannesnd 


wn Pwo - NM oa ~m t. °) mr Oo- rn Nw A] ~ 

Pac 8988 5 Ee ee oe BR as SSS = aes | 

we | 
® oo oc oOo So So SO So So ooo oooo oo o o oOo oOo oo | 
ao a i i i Mi a Ni Mien in Nin in ii in Min i iti i i ii eee i ie i ei i i i te De te ee eh ee ek hh ad a a a or a a od a a a et 

| i) 

. | 
= 
*. 

— 

a 

@ 

. 

La | 

=) 

« 
NOM 
wee 
me 
ia 
oo 

“Zz 
w> 
>a Oo 
wu a 
Ne 
ma t-*] . 
tw ~o = mn] 
ne - -_ xo 
an — aw -- 
4 o~- we ar 
a) wn a ww 
ow - . oS wT tis av 

= _- @ “5s o > oa -o Ss 
-> ow oO ~ Bs Lod - Me a 
—-oA “+ o- s ” Se) — ele] ” 
‘~ re ad ao++ ba ° ow Ouse 2 + _ * 
<M wT Oo ia-*) So ae ee wwwritte e == v mereste an 
<= wo 5< Oo wy > FPN NDB ~OWOO + 2s + 5 _ = “O sess 8 Uo 
>a =— - wou 4 Nm 2 To—-—-—- AHAGDAA . TF TF TK ARHOHOAOA &-— = 

-~ ws ern + oe an = S3sss S ee ess es ee el lClCUtC OOOO Zé 

- O§- @= @ - +4 8 oz + wo el ond ond aed ond Dd ee ee eel et ttt ee ee 

wn wn on eee -—  mMmmmitite vo vow mmitttit & 

a “JF WPM MiIMROOO << + MOOS * * * IMIS IAAGHGA —- THETA WMjIIMRHGHORHA WY 
wr VBSVEVEVSV we So BeVuwseeaewze NNNAWA 2ST IT SM NOMA GaErM 
or 
Tees 2 —- 
oe oe an 2 jin 1-2) 4+ja ™N ja 
-—m- 822Ft jIjIjjj0 10 4S TTS Tt J I I 0 I I au _—_ I UI IO IE <u 
S— €HI420000 wrk wes Sr) 8 WwWOON YS So eo aw Sereno —S>aga>>>war->o —->aQ 

+~D< Ow z= wk 22 j00 D324 257540002 20043 rt $44 St Ft + pes woac 
> 4 4EVEOYVOVSO+OLVFZTOAACVMAGCVETEVMEZOwW Sta OtzZtZOrazsw - ert<ac@m 
on 
-— 

‘se 
aa ii 7 of oe 

mee A as ao 1 i) “eA a ad 
my oOo - N mT w oo f [+ 2) o 
—— Ser sssusss WE O00 WINGO O&O Ee UNE” OME OW ~o <wo~wo<tond < 

Sh sth seth meth seh seh seth, seed seth, south seth seh eh th, meet meth see see sth seth meth, mh eth eth. seth. cel eel seh seh seek | ab at ed ddd Ld Ld od odd od od Ld wcucuc 

OOQOCOOOOOOOCOOOOOOOOOOOOOOOOOOOoOOoOO Soooooooooooooeo oooo 

SoOSCOOOCOSCOCOCOOCCOCOOSCOOOSOOOoOOOoOoOOO SoooooQoQoooooooo oooo 

VODOMK— Me - CUNO FT WI Ou Oe - WO ODOOCO- woos u Toor OoOOMen-vs Ou Twine 

OUR Oe Or- O- OP OO 4u Or - OC O4OO0O0O-Aa8auU fe Tm eT ed ed — el — ed ooaoue- 
— 

w 
a WMV NOOO DOO OVUV- OOOO WMODOOVNO K— NMOMNMNNAO DODDOVM OK MMAe New << 
> ee Soe s ow sa roo 
-_ - — 
roo o oo oo S 
=) 
oy wr o vo So ed wvwvwva w wv woo So 
& < <= Oo- o So o<da<aa o oo oct So 
- So So So ooo S 
wo So o Ss ooo o 
a So 
w So 
= o 
oOo -—- Ww oo < BNA WN OO on OMo 4 Nom oo 
. 
o So 
o oS o oS Ss2 ocx So So o So 
-@ So So o oS o 
cc Oo So o Oo oO 
a-- o o oOo 
Be So o So 
> So o o 
eo o o o 
$* wo wn 
~ w 
c 38 one <= 
7 Se o [=] 
. 2 o o 
“Ee 
wn foe) 
@t So 
ve 
2 
as 


: 
Processes the various .NUMBER directives. 1b-5e -1984 01:16: VAX-11 Bliss-32 V4.0-742 P 1 T 
NM == main routine 1 ~3007 138% 94:45:38 DISKSVMSMASTER: CRUNOFF .SRCINM.BLI;1 a (aS vO4 
5 0 BB42 D 8 30%:  -MOVA STCNTCLIST_DEPTHI, RO : 0523 ; 
ee) ee my 
: 4 " -BGEG 3 ; ; 
‘ E 04 47 32$: CLAL =(SP) : 0533 ; 
Te 0 ee eee ‘oso | 
04 Ad 08 A 0 cs i SUBL #1, NMLST#B.~4(RO) ; noes : 
000000A3—s&F 53 D1 8 34$: CMPL R3 #163 + 0543 : 
1 i8 ‘ BGEG 35§ : ; 
Q00000AS5 8F 53 1 ; 35$ CMP R3, #165 : ; 
Bo eg oo be 3 : 
27 000000006 i £9 00 i $68: BLBC  PHANE24, 398 i 0551 ; 
000000AS BF 3 D1 0027 CMPL = R3, #165 : ; 
08 12 § 7¢ BNEQ Ree : F 
4 06 O27E INCL 4 : : 
52 FA Ad 3C 0 a MOVZWL PAGEN#2, X : 0558 ; 
39 11 BRB 42s : : 
000000A4 = 8F 33 D1 0 86 37$: CHL #164 > 0561 : 
52 06 nS $¢ 09 et ROVZUL PAGEN+14, X > 0564 ; 
52 69 DO 09 3 38$:  MOVL PAGEN#8, X + 0567 : 
25 11 00298 BRB 42$ > 0555 : 
000000A5 8F 33 bt ose EMPL ORS, (#165 Test 
a 3 : 
52 FA a? Be 0247 mOVZUL NPAGEN#2, X ; 0574 ; 
000000A4 =F 38 D4 0 AD 408: cHPL R3, #164 + 0577 ; 
52 06 Ni $C 00286 MOVZWL NPAGEN*14, x ; 0580 3 
Bo on BBRe ok Pe mets BB) LE 
FC As 02¢s IST NUMPRNS8 ; 0589 3 
52 F8 8 C £8 ADDL2 NUMPRM+4, X : 0591 : 
40 1 CC BRB 46$ : : 
6 D CE 43$:  TSTL © NUMPRM+12 > 0594 : 
1 D BEQL 44S : : 
52 FB AB OD D MOVL NUMPRMS4, x > 0596 ; 
3% 1 D BRB 46$ : ; 
0¢ ab b4 DB 44$ CLRL OFS 1+12 > 0600 : 
66 a6 . DB MOVAB FS01416, FSO1 : F 
satires $ bp FS at el FSots : 0603 : 
000000006 EF af e§ PUSHAB IRA : : 
000000006 Fe FB OOgE CALLS #2, GSLU : ; 
’ 8) O05F gen |e ; 
19 4 ig F BLBC = R4, 47S > 0614 : 


35 


m 5 
NM Processes the various .NUMBER directives. =Sep-1984 01:16: VAX-11 Bliss-32 V4.0-742 Page 
v04-000 NM == main routine 127860=1 382 94:49:38 DISKSVMSMASTER: CRUNOFF.SRCINM.BLI;1 é 
52 1 00 FA MOVL #1, X : 06 F 
F 1 FD BRB 46 : 06 ; 
oc A DD FF 45$: PUSHL FS +12 ; 06 : 
000000006 gE F ¢ CALLS i. CONVLB : ; 
D B MOVL RO, X : 3 
0 4 ‘ 46$:  BLBC R4, 47S : 06 ; 
4 1 BEQL 46-4 8$ : 06 ; 
: D 13.47$: TSTL Xx : 0628 ; 
10 1 1 BGEO 308 : ; 
1 DD 00317 48$ PUSHL # + 0631 j 
000000006 BF DD 00319 49$ PUSHL #RNFINM : ; 
000000006 EF 2 FB iF CALLS #2, ERMA ts 
51 000000006 Ef 00 ; 50$:  MOVL PHAN+24, R1 : 06 
3 4 € : BLBC_ —_-R4, ; 06 
50 6 01 C1 ADDL3 #1. PAGEN+8, RO : 06 
50 67 D| 3 cMPL NPAGEN+S, RO : 
67 69 5 O33A MOVL § PAGEN+8, NPAGEN+8 + 0645 
OA 51 £9 00330 51$ BLBC . + 0648 
FA AQ 52 BO 00340 MOVW X, PAGEN+2 ; 065¢ 
FA AT 52 01 Al 00344 ADDW3 #1, X, NPAGEN+2 : 065 
04 00349 RET : 0648 
FA AT 52 BO 0034A 52$: MOVW xX, NPAGEN#2 : 0657 
04 0034E RET : 0637 
Q000000A4 BF 53 01 OO34F 53$:  CMPL 3, #164 > 0661 
12 iF 0 36 BNEG 55$ : 
OA 51 €£ 5 BLBC = -R1, 54S > 0665 
06 Ad 52 BO 00358 MOVW  X, PAGEN+14 + 0669 
06 A7 52 01 Al 0035F ADDW3 #1, X, NPAGEN+14 : 0670 
04 00364 RET + 0665 
06 A? 52 BO 00365 54$:  MOVW XX, NPAGEN+14 + 0674 
04 0 69 RET > 0665 
7E 00 52 01 7A 0036A 55$ EMUL #1, X, #0, -(SP) : 0679 
50 50 BE 08 7B 00 oF EDIV #2, (§P)+, RO, RO ; 
000000006 EF D2 00374 MCOML RO, HCT+16 : 
8 1 €9 00378 BLBC.— RI, > 0681 
69 : 0 : 7E MOVL X, PAGEN+8 + 0685 
67 01 A2 9E 00381 MOVAB 1(R2), NPAGEN+8 : 0686 
04 00385 RET : 0681 
67 52 00 9 568: MOVL XX, NPAGEN+8 : 0690 
04 57$: RET : 0766 


: Routine Size: 906 bytes, Routine Base: S$CODE$ + 0000 


; 640 767 1 
3 6641 768 1 END ! End of module 
; 642 769 0 ELUDOM 


: PSECT SUMMARY 


N 5 
NM Processes the vertous «NUMBER directives. 16-Sep 4 VAX-11 Bliss-32 V4.0-742 Page 18 
v04-000 NM == main routine 14-Sep 7138 tf 43: 38 DISKSVMSMASTER: CRUNOFF .SRCJNM.BLI;1 ° (4) 
Name Bytes Attributes 
SCODES 906 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


Library Statistics 


asoneros Symbols -<------ Pages Processing 
File Total Loaded Percent Mapped Time 
$255$DUA SYSLIBJXPORT.L32;1 9 0 0 252 0:00.1 
RTE RUNOFF .SRCJDSRLIB.L32;1 1348 86 6 86 aes 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$:NM/OBJ=OBJ$:NM MSRC$:NM/UPDATE=(ENHS:NM) 


ste na 906 code $ 0 data bytes 
me 3 J 
ple Time: 0:38.4 
Lines/CPU Min: ¢ 3 
povenee/CPUshtas 21435 
aneey Used: 212 pages 
eee ation Complete 


AL EQUIPMENT CORPORATION 
DENTIAL. AND PROPRIETARY 


AH-BT13A-SE 
VAX/VMS V4.0 


034 ae 


